*createmarkpanel modules 1 "Please select the parts..."
set parts_list [ hm_getmark modules 1 ]
*clearmarkall 1
set elem_list_tmp [list]
foreach part $parts_list {
	*clearmarkall 1
	*clearmarkall 2
	*createmark elements 1 "by module" $part
	*findmark elements 1 1 1 elements 0 2 0
	eval lappend elem_list_tmp [ hm_getmark elements 2 ]
}
eval *createmark elems 1 {"by id only"} $elem_list_tmp
*createstringarray 2 "elements_on" "geometry_on"
*isolateonlyentitybymark 1 1 2
#~ *createmark elems 2 "by config type" 1 quad4
#~ *appendmark elems 2 "by config type" 1 tria3
#~ set hf_elem [ hm_getmark elems 2 ]